Replace use of xor

Apparently this is a recent function

diff --git a/which-key.el b/which-key.el
index f7bab55d317d8665aab948222e6c5315b1963ff6..e0b30de8895b0e0888cebeb0f55e28d4d5df259d 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1329,7 +1329,7 @@ width) in lines and characters respectively."
      ((not which-key-sort-uppercase-first)
       (let ((aup (not (string-equal da a)))
             (bup (not (string-equal db b))))
-        (if (not (xor aup bup))
+        (if (or (and aup bup) (and (not aup) (not bup)))
             (string-lessp a b)
           bup)))
      (t (string-lessp a b)))))